home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / Macintosh Graphics Primer / Macintosh Graphics Primer / card_88103.txt < prev    next >
Text File  |  1990-12-05  |  7KB  |  319 lines
  1. -- card: 88103 from stack: in
  2. -- bmap block id: 86600
  3. -- flags: 0000
  4. -- background id: 79034
  5. -- name: index 5
  6. ----- HyperTalk script -----
  7. on opencard
  8.   global maploc, cardloc
  9.   put "index" into maploc
  10.   set the hilite of bg btn 7 to true
  11. end opencard
  12.  
  13. on closecard
  14.   set the hilite of bg btn 7 to false
  15.   push card
  16. end closecard
  17.  
  18.  
  19.  
  20.  
  21. -- part 1 (button)
  22. -- low flags: 00
  23. -- high flags: A000
  24. -- rect: left=120 top=173 right=193 bottom=244
  25. -- title width / last selected line: 0
  26. -- icon id / first selected line: 0 / 0
  27. -- text alignment: 0
  28. -- font id: 156
  29. -- text size: 14
  30. -- style flags: 0
  31. -- line height: 18
  32. -- part name: Intermediate hues
  33. ----- HyperTalk script -----
  34. on mouseUp
  35.   visual effect dissolve
  36.   go card "intro 19"
  37. end mouseUp
  38.  
  39.  
  40.  
  41. -- part 3 (button)
  42. -- low flags: 00
  43. -- high flags: A000
  44. -- rect: left=120 top=136 right=155 bottom=226
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 0
  48. -- font id: 156
  49. -- text size: 14
  50. -- style flags: 0
  51. -- line height: 18
  52. -- part name: INITs and DAs
  53. ----- HyperTalk script -----
  54. on mouseUp
  55.   visual effect dissolve
  56.   go card "benefit 4"
  57. end mouseUp
  58.  
  59.  
  60.  
  61. -- part 8 (button)
  62. -- low flags: 00
  63. -- high flags: A000
  64. -- rect: left=337 top=152 right=172 bottom=422
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 0 / 0
  67. -- text alignment: 0
  68. -- font id: 156
  69. -- text size: 14
  70. -- style flags: 0
  71. -- line height: 18
  72. -- part name: Light waves
  73. ----- HyperTalk script -----
  74. on mouseUp
  75.   visual effect dissolve
  76.   go card "intro 2"
  77. end mouseUp
  78.  
  79.  
  80.  
  81. -- part 9 (button)
  82. -- low flags: 00
  83. -- high flags: A000
  84. -- rect: left=337 top=134 right=153 bottom=407
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 0 / 0
  87. -- text alignment: 0
  88. -- font id: 156
  89. -- text size: 14
  90. -- style flags: 0
  91. -- line height: 18
  92. -- part name: Lightness
  93. ----- HyperTalk script -----
  94. on mouseUp
  95.   visual effect dissolve
  96.   go card "intro 6"
  97. end mouseUp
  98.  
  99.  
  100.  
  101. -- part 10 (button)
  102. -- low flags: 00
  103. -- high flags: A000
  104. -- rect: left=337 top=171 right=191 bottom=418
  105. -- title width / last selected line: 0
  106. -- icon id / first selected line: 0 / 0
  107. -- text alignment: 0
  108. -- font id: 156
  109. -- text size: 14
  110. -- style flags: 0
  111. -- line height: 18
  112. -- part name: Luminance
  113. ----- HyperTalk script -----
  114. on mouseUp
  115.   visual effect dissolve
  116.   go card "TV3"
  117. end mouseUp
  118.  
  119.  
  120.  
  121. -- part 11 (button)
  122. -- low flags: 00
  123. -- high flags: A000
  124. -- rect: left=337 top=190 right=212 bottom=456
  125. -- title width / last selected line: 0
  126. -- icon id / first selected line: 0 / 0
  127. -- text alignment: 0
  128. -- font id: 156
  129. -- text size: 14
  130. -- style flags: 0
  131. -- line height: 18
  132. -- part name: Luminance signal
  133. ----- HyperTalk script -----
  134. on mouseUp
  135.   visual effect dissolve
  136.   go card "TV8"
  137. end mouseUp
  138.  
  139.  
  140.  
  141. -- part 12 (button)
  142. -- low flags: 00
  143. -- high flags: A000
  144. -- rect: left=337 top=97 right=116 bottom=388
  145. -- title width / last selected line: 0
  146. -- icon id / first selected line: 0 / 0
  147. -- text alignment: 0
  148. -- font id: 156
  149. -- text size: 14
  150. -- style flags: 0
  151. -- line height: 18
  152. -- part name: Light
  153. ----- HyperTalk script -----
  154. on mouseUp
  155.   visual effect dissolve
  156.   go card "intro 2"
  157. end mouseUp
  158.  
  159.  
  160.  
  161. -- part 13 (button)
  162. -- low flags: 00
  163. -- high flags: A000
  164. -- rect: left=337 top=115 right=135 bottom=402
  165. -- title width / last selected line: 0
  166. -- icon id / first selected line: 0 / 0
  167. -- text alignment: 0
  168. -- font id: 156
  169. -- text size: 14
  170. -- style flags: 0
  171. -- line height: 18
  172. -- part name: Lighting
  173. ----- HyperTalk script -----
  174. on mouseUp
  175.   visual effect dissolve
  176.   go card "intro 8"
  177. end mouseUp
  178.  
  179.  
  180.  
  181. -- part 18 (button)
  182. -- low flags: 00
  183. -- high flags: A000
  184. -- rect: left=120 top=98 right=117 bottom=195
  185. -- title width / last selected line: 0
  186. -- icon id / first selected line: 0 / 0
  187. -- text alignment: 0
  188. -- font id: 156
  189. -- text size: 14
  190. -- style flags: 0
  191. -- line height: 18
  192. -- part name: IBM
  193. ----- HyperTalk script -----
  194. on mouseUp
  195.   visual effect dissolve
  196.   go card "compete 2"
  197. end mouseUp
  198.  
  199.  
  200.  
  201. -- part 19 (button)
  202. -- low flags: 00
  203. -- high flags: A000
  204. -- rect: left=120 top=116 right=137 bottom=205
  205. -- title width / last selected line: 0
  206. -- icon id / first selected line: 0 / 0
  207. -- text alignment: 0
  208. -- font id: 156
  209. -- text size: 14
  210. -- style flags: 0
  211. -- line height: 18
  212. -- part name: IBM 8514/A
  213. ----- HyperTalk script -----
  214. on mouseUp
  215.   visual effect dissolve
  216.   go card "compete 6"
  217. end mouseUp
  218.  
  219.  
  220.  
  221. -- part 20 (button)
  222. -- low flags: 00
  223. -- high flags: A000
  224. -- rect: left=120 top=154 right=174 bottom=193
  225. -- title width / last selected line: 0
  226. -- icon id / first selected line: 0 / 0
  227. -- text alignment: 0
  228. -- font id: 156
  229. -- text size: 14
  230. -- style flags: 0
  231. -- line height: 18
  232. -- part name: Interlace
  233. ----- HyperTalk script -----
  234. on mouseUp
  235.   visual effect dissolve
  236.   go card "TV11"
  237. end mouseUp
  238.  
  239.  
  240.  
  241. -- part 21 (button)
  242. -- low flags: 00
  243. -- high flags: 0002
  244. -- rect: left=392 top=320 right=338 bottom=426
  245. -- title width / last selected line: 0
  246. -- icon id / first selected line: 1500 / 1500
  247. -- text alignment: 1
  248. -- font id: 0
  249. -- text size: 12
  250. -- style flags: 0
  251. -- line height: 16
  252. -- part name: Start-Up
  253. ----- HyperTalk script -----
  254. on mouseDown
  255.   global NAV_PATH, SYS_PATH, GTRACKINGDISABLED
  256.  
  257.   put (item 1 of the mouseLoc) - (item 1 of the Loc of me) into whereInBtn
  258.  
  259.   -- simulate hiliting of two small buttons
  260.   repeat until the mouse is up
  261.     ---find out WHERE on the icon you clicked
  262.     put (item 1 of the mouseLoc) - (item 1 of the Loc of me) into whereInBtn
  263.     if the mouseLoc is within the rect of the target then
  264.       if whereInBtn < 0 then
  265.         set icon of me to 1501
  266.       else
  267.         set icon of me to 1502
  268.       end if
  269.     else   -- outside of the button, reset default icon
  270.       set icon of me to 1500
  271.     end if
  272.   end repeat
  273.   set icon of me to 1500
  274.   if the mouseloc is not within the rect of me then exit mouseDown
  275.  
  276.   if whereInBtn < 0 then
  277.     --- the click was on the left so go to send feedback if it exists
  278.     if (GTRACKINGDISABLED = empty) or (GTRACKINGDISABLED = true) then
  279.       answer "‚ÄúCD Preferences‚Äù has not been installed." with "OK"
  280.       exit mouseDown
  281.     end if
  282.     --
  283.     if (GTRACKINGDISABLED = "Disabled") then
  284.       answer "The feedback mechanism has been disabled." with "OK"
  285.       exit mouseDown
  286.     end if
  287.     --
  288.     push card
  289.     put SYS_PATH & "CD Preferences" into feedPath
  290.     set cursor to watch
  291.     visual effect dissolve fast
  292.     go stack feedPath
  293.   else if whereInBtn > 0 then
  294.     -- if the click was on the right then go back to navigation stack
  295.     visual effect iris close to black
  296.     visual effect iris open
  297.     if NAV_PATH = empty then put "cd welcome of stack" && "the ‚ÄúNavigation Stack‚Äù" into NAV_PATH
  298.     -- make a prompt for "where is" if the global is empty
  299.     go NAV_PATH
  300.   end if
  301. end mouseDown
  302.  
  303. on mouseUp
  304.   -- kill any mouseups
  305. end mouseUp
  306.  
  307.  
  308.  
  309. -- part contents for background part 2
  310. ----- text -----
  311. Macintosh Graphics Primer
  312.  
  313. -- part contents for background part 3
  314. ----- text -----
  315. Index
  316.  
  317. -- part contents for background part 4
  318. ----- text -----
  319. Click on any index entry to go to that card.